home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2008 January / Cybermycha 1_2008.iso / Data.cab / _47A479FEF7AD4A6F922A1B50666837D4 < prev    next >
Encoding:
Text File  |  2004-03-17  |  1.3 KB  |  59 lines
  1. regc( 0, "TFACTOR" )
  2. regc4f( 3, %dirtcolor_r, %dirtcolor_g, %dirtcolor_b, 0.0 )
  3. regc4f( 4, %dirtsnow, %dirtgravel, %dirtmud, 0.0 )
  4. regc4f( 5, %daycolor_r, %daycolor_g, %daycolor_b, %daycolor_a )
  5. regc4f( 6, %ambient_r, %ambient_g, %ambient_b, %ambient_a )
  6. pshader("
  7.  
  8. ps_1_1
  9.  
  10. #include <cardef.h>
  11. #define    DirtLevel    c0.a
  12. #define DirtColor    c3
  13. #define    DirtType    c4
  14. #define    DayColor    c5
  15.  
  16. #define    Diffuse        v0.a
  17. #define SpotDiffuse v0
  18. #define Specular    v1
  19. #define Fresnel        v1.a
  20. #define Ambient     c6
  21. #define ReflStrength    c0.b
  22.  
  23.     def    c1, 0.13, 0.33, 0.43, 1.0
  24.  
  25. tex t0      ;texture 
  26. tex t1      ;Dirt
  27. tex t2      ;ColorMap
  28. tex    t3        ; Cubemap
  29.  
  30.     dp3_sat    t1.rgb, DirtType, t1
  31.     +mul    r1.a, t2.a, Diffuse
  32.     
  33.     mad     r1.rgb, Ambient, r1.a, Ambient.a      
  34.     +mul    r0.a, t1.b, DirtLevel
  35.  
  36.     lrp     t0.rgb, 1-r0.a, t0, DirtColor
  37.     +mul     r1.a, t2.a, Specular.b
  38.  
  39.     mul     r0.rgb, t0, r1        
  40.     +mul     t3.a, Fresnel, 1-r0.a        // +ReflStrength
  41.         
  42.     mad     r0.rgb, 1-r0.a, r1.a, r0
  43.     
  44.     mad        r0, t3.a, t3, r0
  45.  
  46.     mul     r0.rgb, r0, DayColor
  47.     +lrp    t0.a, 1-r0.a, t0.a, c1.a
  48. //    dp3_sat r1, r0, c1
  49.     ; spot lights
  50. #if VS_SPOTLIGHTS
  51.     mad     r0.rgb, t0, SpotDiffuse, r0
  52.     +add_sat    r0.a, t0.a, r0.b
  53. #else    
  54.     add_sat    r0.a, t0.a, r0.b
  55. #endif    
  56.  
  57. ")
  58.  
  59.